10 C=56328
20 POKE C+14,PEEK(C+14) OR 128
30 POKE C+15,PEEK(C+15) AND 127
40 INPUT "ZEIT HHMMSS";A$
50 IF LEN(A$)<>6 THEN 40
60 H=VAL(LEFT$(A$,2))
70 M=VAL(MID$(A$,3,2))
80 S=VAL(RIGHT$(A$,2))
100 IF H>12 THEN H=H+68
110 POKEC+3,16*INT(H/10)+H-INT(H/10)*10
130 POKEC+2,16*INT(M/10)+M-INT(M/10)*10
150 POKEC+1,16*INT(S/10)+S-INT(S/10)*10
160 POKE C,0
180 PRINT"[147]"
200 C=56328
210 H=PEEK(C+3):M=PEEK(C+2):S=PEEK(C+1):T=PEEK(C)
230 F=0:IF H>32 THEN H=H-128:F=1
240 H=INT(H/16)*10+H-INT(H/16)*16:IF F=0 THEN 280
250 IF H=12 THEN 290
260 H=H+12
280 IF H=12 THEN H=0
290 M=INT(M/16)*10+M-INT(M/16)*16
300 S=INT(S/16)*10+S-INT(S/16)*16
320 T$=RIGHT$("0"+MID$(STR$(H),2,2),2)+":"
340 T$=T$+RIGHT$("0"+MID$(STR$(M),2,2),2)+":"
360 T$=T$+RIGHT$("0"+MID$(STR$(S),2,2),2)+":"
380 T$=T$+RIGHT$(STR$(T),1)
400 PRINT"";T$
420 GOTO 210